home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 25 / Mac Magazin and MacEasy Magazine CD - Issue 25.iso / Grafik & Text / Alpha / Tcl / UserCode / setVerilogMode.tcl < prev    next >
Text File  |  1996-08-15  |  1KB  |  43 lines
  1. # FILE: setVerilogMode.tcl
  2. #
  3. # LAST UPDATE: 01/07/93 8:38:55 AM
  4. #
  5. # This file contains the following TCL procedure(s):
  6. #
  7. #    setVerilogMode -- used with changeMode & Verilog Hardware description language
  8.  
  9. # COPYRIGHT:
  10. #
  11. #    Copyright © 1993 by David C. Black
  12. #    All rights reserved.
  13. #
  14. #    Redistribution and use in source and binary forms are permitted
  15. #    provided that the above copyright notice and this paragraph are
  16. #    duplicated in all such forms and that any documentation,
  17. #    advertising materials, and other materials related to such
  18. #    distribution and use acknowledge that the software was developed
  19. #    by David C. Black.
  20. #
  21. #    THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
  22. #    IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  23. #    WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  24. #
  25. ################################################################################
  26.  
  27. # Verilog programming mode 
  28. proc setVerilogMode {} {
  29.     changeMode "Vlg"
  30.     uplevel #0 {
  31.         set elecLBrace 0
  32.         set elecRBrace 0
  33.         set electricSemi 0
  34.         set wordWrap 0
  35.         set funcTitle "Mdl"
  36.         set funcExpr {^ *module *([a-zA-Z0-9_]*).}
  37.         set funcPar 1
  38.         set sortedIsDefault 0
  39.         set prefixString "// "
  40.     }
  41. }
  42.  
  43.